home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / exectn.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  750b  |  25 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCtN()
  4.  
  5.     This function executes a ^N (control-N or caret-N) command.
  6.  
  7.     ^N    <CTRL/N> (caret/N) is the end of file flag.  It is
  8.         equivalent to -1 if the file open on the currently
  9.         selected input stream is at end of file, and zero
  10.         otherwise.
  11.  
  12. *****************************************************************************/
  13.  
  14. #include "zport.h"        /* define portability identifiers */
  15. #include "tecoc.h"        /* define general identifiers */
  16. #include "defext.h"        /* define external global variables */
  17.  
  18. DEFAULT ExeCtN()        /* execute a ^N (control-N) command */
  19. {
  20.     DBGFEN(1,"ExeCtN",NULL);
  21.     DBGFEX(1,DbgFNm,"PushEx()");
  22.  
  23.     return PushEx((IsEofI[CurInp] ? -1L : 0L), OPERAND);
  24. }
  25.